Top 10k strings from 15 OS Betu Puzzle (1998)(Laszlo Nyitrai)(128k)(hu).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

  21 ": FOR b=1 TO 10: BEEP .05,
   3 NYITRAI BASIC 1998'
   2 Z-FOKOZAT"
   2 ;"PROFI-FOKOZAT"
   1 c$="ABCDEFGHIJKLMNO "
   1 a$="ONMLKJIHGFEDCBA "
   1 a$="OEMKLJCGAHFDNIB "
   1 a$="OBMLFJIGHKEDCNA ":
   1 Z "; INK 3; 
   1 UDG CODE USR "A",168
   1 T 17,10;"2 NEH
   1 SSZEKEVEREM !"
   1 S AZ 'X'-EL";
   1 S AZ 'X'-EL"
   1 S 'Q-A-O-P'";
   1 POKE 23607,162
   1 POKE 23606,150
   1 OZATOT"; PAPER 7; INK 1; AT
   1 OBB:P"; AT 12,25;"BAL :O"; 
   1 ND INKEY$ <> "A" AND INKEY$
   1 M: ";l;"    ":
   1 LASZD KI A FOKOZATOT";
   1 LASZD KI A FOK
   1 KEZETES BET
   1 EEP .5,9: BEEP .5,5
   1 BETUKOD 41852,768
   1 AT 18,10;"3 PROFI "
   1 AT 13,25;"KI  :X"
   1 AT 11,8;"KIL
   1 ABCDEFGHIJKLMNO 
   1 >15 THEN GO TO 470
   1 <6 THEN GO TO 470
   1 ;"NYOMD AZ ENTER-T AZ 
   1 ;"LE  :A";
   1 ;"JOBB:P";
   1 ;"FEL :Q";
   1 ;"BAL :O";
   1 ;"3 PROFI "
   1 ;"  KEZDHETED !
   1 ; AT r,s;" "
   1 ; AT 14,5;"V
   1 8E9E9E9E9E9
   1 560 RETURN 
   1 550 PRINT AT 9,25;"FEL :Q"; AT 
   1 547 IF a=3 THEN PRINT AT 19,10;
   1 546 IF a=2 THEN PRINT AT 19,10;
   1 545 IF a=1 THEN PRINT AT 19,10;
   1 540 PRINT AT 3,4;"  KEZDHETED !
   1 530 LET p=r: LET q=s: NEXT y: B
   1 520 PRINT AT p,q; SCREEN$ (r,s)
   1 510 IF x=7 THEN LET r=p+3: IF r
   1 500 IF x=6 THEN LET r=p-3: IF r
   1 490 IF x=8 THEN LET s=q-3: IF s
   1 10,25;"LE  :A"; AT 11,25;"J
   1 "PROFI-FOKOZAT"
   1 "IRD BE: 1 - 2 - 3  FOKOZAT ";a
   1 "; INK 2; A
   1  16,10;"1 K